home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 5 / CD-ROM Today - The Disc (Issue 5)(November 1994).ISO / mac / DHA demo / Don Norman Folder / The Library / The Library.rsrc / CSTR_21110_CopyCSTR < prev    next >
Encoding:
Text File  |  1994-09-21  |  544 b   |  15 lines
  1. put mySx("C") into temp
  2. if (word 8 of temp ¡ "") then
  3. get (char 1 of word 6 of temp = "c")
  4. selectiontoclip word 8 of temp,it,word 2 of temp, word 4 of temp
  5. if the result = "" then
  6. if ((not it) and (the short name of (word 6 to 8 of temp) = "styled")) then
  7. appendtoclip " ("&ssn()&", "&tStr("LibMsg",5)&&fld "pageno"&") ", "palatino", "12", "plain"
  8. end if
  9. end if
  10. if it then
  11. select char (word 2 of temp) to (word 4 of temp) of cd fld (word 8 of temp)
  12. else
  13. select char (word 2 of temp) to (word 4 of temp) of bg fld (word 8 of temp)
  14. end if
  15. end if